home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / disks / asi023.dms / asi023.adf / LOADER.AMOS / LOADER.amosSourceCode < prev    next >
AMOS Source Code  |  1978-08-29  |  758b  |  12 lines
  1. Unpack 1 To 0 : Unpack 2 To 1 : Music 1 : Hide 
  2. Repeat : K=Mouse Key
  3. Until K : Fade 2 : Wait 10 : Screen Close 1 : Flash Off : Curs Off : Paper 0 : Locate 0,0 : Print " "
  4. Colour 1,$A37
  5. Set Rainbow 1,3,23,"(1,1,1)","(2,1,1)","(3,1,1)" : Rainbow 1,-1,43,23
  6. Set Rainbow 2,2,150,"","","" : For Z=1 To 108 : For ZZ=0 To 7 : Rain(2,Z+ZZ)=1334+ZZ+Z : Next ZZ : Next Z : Rainbow 2,1,74,108
  7. Set Rainbow 3,3,16,"(1,-1,1)","(1,1,1)","(1,1,1)" : Rainbow 3,-1,284,12
  8. Channel 1 To Rainbow 1 : Amal 1,"L: F R0 =1 T 23;L X=R0;N R0;J L"
  9. Amal On : Repeat 
  10. If Key State(80) Then Rainbow 3,1,1,1 : Rainbow 2,1,1,1 : Cls 0,0,30 To 640,256 : Run "ARCADIA.AMOS"
  11. If Key State(81) Then Rainbow 3,1,1,1 : Rainbow 2,1,1,1 : Cls 0,0,30 To 640,256 : Run "LEVEL-DESIGNER.AMOS"
  12. Until False